Public Class frmKITCHEN_MEMO
    Dim dt As DataTable
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub frmKITCHEN_MEMO_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Try
            GC.Collect()
            Me.Dispose()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub frmKITCHEN_MEMO_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        dt = BLL.ObjectGetAll("MEMO_LOADALL")
        Dim dv As New DataView(dt)
        Dim dt1 As DataTable
        dt1 = dv.ToTable(True, "GR_CODE")
        GridGroup.DataSource = dt1.DefaultView
    End Sub

    Private Sub GridGroup_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridGroup.SelectionChanged
        Dim dv As New DataView(dt)
        dv.RowFilter = "GR_CODE='" + GridGroup.GetValue("GR_CODE").ToString + "'"
        GridDetail.DataSource = dv
    End Sub

    Private Sub GridDetail_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridDetail.SelectionChanged
        txtMemo.Text = GridDetail.GetValue("MEMO_DETAIL").ToString
    End Sub
End Class